home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / graphics / vgacad22.zip / VIEWBLD.BAS < prev    next >
BASIC Source File  |  1989-12-19  |  315b  |  20 lines
  1. SCREEN 13
  2.  
  3. DEF SEG = &HA000
  4. BLOAD "pboy.plt", 0
  5.  
  6. FOR plt = 0 TO 255
  7.         pltptr = plt * 3
  8.         r = PEEK(pltptr)
  9.         g = PEEK(pltptr + 1)
  10.         b = PEEK(pltptr + 2)
  11.         OUT 968, plt
  12.         OUT 969, r
  13.         OUT 969, g
  14.         OUT 969, b
  15. NEXT
  16.  
  17. BLOAD "pboy.bld", 0
  18. a$ = INPUT$(1)
  19.  
  20.